home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / dll_gen / drvplus / demomain.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1994-08-08  |  4.6 KB  |  150 lines
  1. VERSION 2.00
  2. Begin Form DemoMain 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "DrvPlus 1.65 Demo"
  6.    ClientHeight    =   4020
  7.    ClientLeft      =   1080
  8.    ClientTop       =   2415
  9.    ClientWidth     =   7365
  10.    ClipControls    =   0   'False
  11.    FillColor       =   &H00FF00FF&
  12.    Height          =   4710
  13.    Left            =   1020
  14.    LinkTopic       =   "Form1"
  15.    MaxButton       =   0   'False
  16.    ScaleHeight     =   4020
  17.    ScaleWidth      =   7365
  18.    Top             =   1785
  19.    Width           =   7485
  20.    Begin Label Label1 
  21.       Alignment       =   2  'Center
  22.       BackColor       =   &H00C0C0C0&
  23.       Caption         =   "Label1"
  24.       Height          =   2055
  25.       Left            =   1200
  26.       TabIndex        =   0
  27.       Top             =   480
  28.       Width           =   4935
  29.    End
  30.    Begin Menu mnuInfo 
  31.       Caption         =   "&Demos"
  32.       Begin Menu mnuInfoRam 
  33.          Caption         =   "System &RAM..."
  34.       End
  35.       Begin Menu mnuInfoDrvSize 
  36.          Caption         =   "&Drive Info..."
  37.       End
  38.       Begin Menu mnuInfoFileTD 
  39.          Caption         =   "&File Time/Date..."
  40.       End
  41.       Begin Menu mnuInfoVolName 
  42.          Caption         =   "Change Volume Name..."
  43.       End
  44.       Begin Menu mnuInfoSep1 
  45.          Caption         =   "-"
  46.       End
  47.       Begin Menu mnuExit 
  48.          Caption         =   "E&xit"
  49.       End
  50.    End
  51.    Begin Menu mnuHelp 
  52.       Caption         =   "&Help"
  53.       Begin Menu mnuHelpContents 
  54.          Caption         =   "DLL Help &Contents..."
  55.       End
  56.       Begin Menu mnuHelpSearch 
  57.          Caption         =   "DLL Help &Search..."
  58.       End
  59.       Begin Menu mnuHelpSep 
  60.          Caption         =   "-"
  61.       End
  62.       Begin Menu mnuHelpOrderForm 
  63.          Caption         =   "&Order Form..."
  64.       End
  65.       Begin Menu mnuHelpEvaluation 
  66.          Caption         =   "&Evaluation Form..."
  67.       End
  68.    End
  69. 'VB demonstration for DrvPlus.DLL
  70. Sub Form_Load ()
  71.     x% = GetDrvPlusVersion()
  72.     nl = Chr$(13) + Chr$(10)
  73.     FormCenterScreen Me
  74.     mnuHelp.Caption = Chr$(8) + "&Help"
  75.     msg$ = nl + "This small application demonstrates some" + nl
  76.     msg$ = msg$ + "of the functions of DrvPlus.DLL and a few" + nl
  77.     msg$ = msg$ + "VB tricks too.  Print and study the program" + nl
  78.     msg$ = msg$ + "to fully understand how it all works" + nl
  79.     msg$ = msg$ + "together.  Also, read the online Help file" + nl
  80.     msg$ = msg$ + "DrvPlus.HLP to learn about the functions in" + nl
  81.     msg$ = msg$ + " this version of DrvPlus ... and about how to" + nl
  82.     msg$ = msg$ + " register this shareware utility."
  83.     Label1.Caption = msg$
  84. End Sub
  85. Sub Form_Paint ()
  86.     DoForm3D Me, sunken, 3, 0
  87.     DoForm3D Me, raised, 1, 3
  88.     DoControl3D Label1, raised, 4
  89. End Sub
  90. Sub mnuExit_Click ()
  91.     End
  92. End Sub
  93. Sub mnuHelpContents_Click ()
  94.     On Error Resume Next
  95.     MyHelpFile$ = App.Path
  96.     MyHelpFile$ = AddSeparator(MyHelpFile$) + "DRVPLUS.HLP"
  97.     Screen.MousePointer = 11
  98.     ret% = WinHelp(Me.hWnd, MyHelpFile$, HELP_CONTENTS, 0&)
  99.     Screen.MousePointer = 0
  100. End Sub
  101. Sub mnuHelpEvaluation_Click ()
  102.         On Error Resume Next
  103.         WinPath$ = GetWinDir()
  104.         WinPath$ = AddSeparator(WinPath$) + "WRITE.EXE"
  105.         DocPath$ = App.Path
  106.         DocPath$ = AddSeparator(DocPath$) + "EVALFRM.WRI"
  107.         FullPath$ = WinPath$ + " " + DocPath$
  108.         Screen.MousePointer = 11
  109.         x = Shell(FullPath$, 3)
  110.         Screen.MousePointer = 0
  111. End Sub
  112. Sub mnuHelpOrderForm_Click ()
  113.         On Error Resume Next
  114.         WinPath$ = GetWinDir()
  115.         WinPath$ = AddSeparator(WinPath$) + "WRITE.EXE"
  116.         DocPath$ = App.Path
  117.         DocPath$ = AddSeparator(DocPath$) + "ORDERFRM.WRI"
  118.         FullPath$ = WinPath$ + " " + DocPath$
  119.         Screen.MousePointer = 11
  120.         x = Shell(FullPath$, 3)
  121.         Screen.MousePointer = 0
  122. End Sub
  123. Sub mnuHelpSearch_Click ()
  124.     On Error Resume Next
  125.     MyHelpFile$ = App.Path
  126.     MyHelpFile$ = AddSeparator(MyHelpFile$) + "DRVPLUS.HLP"
  127.     Screen.MousePointer = 11
  128.     ret% = WinHelp(Me.hWnd, MyHelpFile$, HELP_PARTIALKEY, "")
  129.     Screen.MousePointer = 0
  130. End Sub
  131. Sub mnuInfoDrvSize_Click ()
  132.     Screen.MousePointer = 11
  133.     DriveInfo.Show 1
  134. End Sub
  135. Sub mnuInfoFileTD_Click ()
  136.     Screen.MousePointer = 11
  137.     FileTD.Show 1
  138. End Sub
  139. Sub mnuInfoRam_Click ()
  140.     Screen.MousePointer = 11
  141.     RamInfo.Show 1
  142. End Sub
  143. Sub mnuInfoVolName_Click ()
  144. ShowIt:
  145.     Me.Refresh
  146.     Screen.MousePointer = 11
  147.     ChgVname.Show 1
  148.     If FormPassString = "NewVol" GoTo ShowIt
  149. End Sub
  150.